5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23
30 FORZ=1TO3:F1=10:FORY=1TO6:F2=30
40 POKE54273,F1
50 FORX=1TO3:POKE54287,F2:REM RANGE
60 F2=F2/1.2:NEXTX:F1=F1*1.5:NEXTY
70 FORW=1TO8:REM LENGTH OF UP TO DOWN TIME
80 POKE54273,F1
90 POKE54287,5:FORV=1TO5:NEXTV
100 F1=F1/1.5:NEXTW:NEXTZ:POKE54278,15
110 LIST